function fig_title(fig, num, authors)% function fig_title(fig, num, authors)%% adds fig # & authors to upper right-hand corner of figif nargin < 2    return;endif nargin < 3 | isempty(authors)    authors = 'Gold & Shadlen';endax = axes('Units', 'normalized', 'Position', [0.87 0.91 .0001 .0001], ...    'XTick', [], 'YTick', [], 'XColor', [1 1 1], 'YColor', [1 1 1]);title(sprintf('Figure %d\n%s', num, authors))